dim cn As New ADODB.Connection
dim r As New ADODB.Recordset
asd = "INSERT INTO pn ( aah, data, suma, adress, npatak, tip ) VALUES ('" & Me.fio.Text & "', '" & _
Format(DateValue(Me.Data.Text), "MM-dd-yyyy") & "', " & Me.suma.Text & ", '" & Me.hasce.Text & _
"', '" & Me.npatak.SelectedValue & "'," & nid & ");"
cn.Open("p", "sa", "**************")
r = cn.Execute(asd)
r = Nothing
cn.Close()
|