pasti masih banyak kekurangan... mohon di koreksi dan saya berharap sarannya...

Adodc1.RecordSource = "select*from pesan where nama='" & Text4 & "' "
Adodc1.Refresh
With Adodc1.Recordset
If .BOF And .EOF Then
MsgBox "data tidak ada"
Text4 = ""
Text4.SetFocus
Else
tampil
Text4 = ""
Text4.SetFocus
End If
End With

With Adodc1.Recordset
If isi = True Then
.AddNew
.Fields("field") = Text1.Text
.Fields("field") = DTPicker1
.Update
Else
.Fields("field") = Text1.Text
.Fields("field") = DTPicker1
.Update
End If
End With

vcar = (InputBox("pesan", "info"))
Adodc1.Recordset.Find "field='" & vcar & "'", , adSearchForward, 1
If Adodc1.Recordset.EOF Then
MsgBox "data tidak di temukan"
Adodc1.Refresh
Else
a = MsgBox("pesan", vbYesNo, "info")
If a = vbYes Then
Adodc1.Recordset.Delete
End If
End If

if adodc1.recordset.BOF and adodc1.recordset. EOF then
text1.text=format (date,"yyyy") & "001"
else
adodc1.recordset.movelast
text1.text=format(date,"yyyy")&right(str(val(right(adodc1.recordset!field,3))+1001),3)
end if

 text1.text=adodc1.recordset.fields("field")

jangan diketawakan ya.. namanya juga masih belajar.. hehe... tapi tolong di bantu ya.. di kasih taw kekurangannnya...