Sub lisamine2()
  Dim cn As New Connection
  Dim cm As New Command
  Dim par1 As ADODB.Parameter
  Dim par2 As ADODB.Parameter
  Dim lause As String
  cn.Open "yhendus1"
  lause = "INSERT INTO inimesed (eesnimi, perekonnanimi) " & _
    "VALUES (?, ?)"
  Set cm.ActiveConnection = cn
  cm.CommandText = lause
  Set par1 = cm.CreateParameter("eesnimi", adVarChar, adParamInput, 50)
  Set par2 = cm.CreateParameter("perekonnanimi", adVarChar, adParamInput, 50)
  cm.Parameters.Append par1
  cm.Parameters.Append par2
  cm.Prepared = True
  par1.Value = "Leena"
  par2.Value = "I'vask"
  cm.Execute
  cn.Close
End Sub