[Amin_Mansouri]

سلام
عذر میخوام دیر جواب میدم واقعا گیرم بد جور
ببین از این کد استفاده کن

کد:

Option Explicit
'
Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset
'
Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset
'
DBName = App.Path & "/Bank.mdb"
Cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBName & ";Persist Security Info=False"
'
DB.Open Cnn
RS.Open StrSQL, DB, adOpenStatic, adLockOptimistic

رو به رو dbname ادرسو بده
اگر تو شبکه باشه باید ایپیت ولید باشه
برای اینکه کلا از sql بدونی و بفهمی اینجا رو مطالعه کن
http://www.forum.foxworld.ir/showthread.php?t=74&page=1
سوالی داشتی در خدمتم
به امید دیدار