Sub lisamine1()
  Dim cn As New Connection
  Dim lause As String
  cn.Open "yhendus1"
  lause = "INSERT INTO inimesed (eesnimi, perekonnanimi) " & _
    "VALUES ('Siim', 'Tamm')"
  cn.Execute lause
  cn.Close
End Sub