Tsipno_KeyPress olayını aşağıdaki gibi düzenler misiniz

Private Sub Tsipno_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

On Error Resume Next

Dim Hrf As String

Hrf = Chr(KeyAscii)

KeyAscii = 0

Set baglan = CreateObject("adodb.connection")

Set rs = CreateObject("adodb.recordset")

baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb"



SqlMax = "SELECT Max(Right(SiparisKayitlari.Siparis_No,11)) AS Sno FROM SiparisKayitlari WHERE (SiparisKayitlari.Siparis_No) Like '" & _

Hrf & "%'"

rs.Open SqlMax, baglan, adOpenKeyset, adLockPessimistic



rs.MoveFirst

gecici = IIf(IsNull(rs(0)), 1, rs(0) + 1)

Tsipno = Hrf & Format(gecici, "00000000000")

rs.Close

End Sub

Not:baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb" bu koddaki 
Microsoft.ACE.OLEDB.12.0; sizde
microsoft.jet.oledb.4.0; olabilir