| Dim WithEvents RsERRORS As Recordset
Dim DbConnection As ADODB.Connection
Dim sn as Integer
sn=0
-----
Private Sub Form_Load()
Move (Screen.Width - Width) 2, (Screen.Height - Height) 2
Set DbConnection = New ADODB.Connection
With DbConnection
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open A
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. |