[VB6DAO]

كود :

Dim constr As String = "Provider=Microsoft.Jet.Oledb.[color=#FF0000][b]4[/b][/color].0; Data [color=#FF0000][b]Source[/b][/color] = " & Application.StartupPath & "[color=#FF0000][b]\[/b][/color]mydata.mdb;"