private sub Command1_Click()
  Dim con As ADODB.Connection
  Dim rst As ADODB.Recordset
  Dim insert As String
 
  Set con = New ADODB.Connection
  con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=" & App.Path & "\db1.mdb"
 
 
   insert = "INSERT INTO  tabelle (attribut) VALUES (" & Text1.Text & ") " 
 
  con.Execute update
end sub