ايران ويج

Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Address & "Data.mdb" & ";Persist Security Info=False"
cmd.Open "select * from Tools_Option", cnn, adOpenDynamic, adLockOptimistic
(Text1.Text = cmd.Fields(0