Thanks i got it
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub button2OnClick(Sender) Dim strConnection, conn, rs, strSQL strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='D:\MyData\DB\waste.mdb'" Set conn = CreateObject("ADODB.Connection") conn.Open(strConnection) Set rs = CreateObject("ADODB.recordset") strSQL = "Select * from Items" rs.Open strSQL,conn rs.MoveFirst while not rs.EOF Print(rs("Item_des")) rs.MoveNext WEND rs.Close Set rs = Nothing conn.Close Set conn = Nothing End Sub ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|