Kod:
Private Sub CommandButton1_Click()
Set rs = CreateObject("adodb.recordset")
With rs
.Open "select * from veriler", con, 1, 3
.addnew
On Local Error Resume Next
.fields("tarih").Value = Format(CDate(TextBox1.Value), "dd.mm.yyyy")
.fields("srad").Value = CStr(TextBox2.Value)
.fields("adsoyad").Value = CStr(TextBox3.Value)
.fields("odetarihi").Value = Format(CDate(TextBox6.Value), "dd.mm.yyyy")
.fields("odedigi").Value = CDbl(Round(TextBox7.Value, 2))
.fields("aciklama").Value = CStr(TextBox8.Value)
.Update
End With
Call UserForm_Initialize
Call UserForm_Activate
Set rs = Nothing
End Sub