Private Sub Command3_Click()
Dim file
file = Text1.Text

Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= file "

Adodc3.RecordSource = "select * from stock"
Adodc3.Refresh
End Sub

help me!!!

Okay. Is that your actual connection string?
For one thing, the Data Source has to point to an actual file rather than the word "file". In this case, you have named a variable "file", and I am assuming you want to use that variable, and also assuming that this variable will actually contain the path to the mdb file you wish to use, then a starting point will be to change the line to this:

Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & file


Woody Z
http://www.learntoprogramnow.com