Private Sub Form_Load()
Dim RS As ADODB.Recordset
Dim Conn As ADODB.Connection
Dim Comm As ADODB.Command
Dim str As String
Set Conn = New ADODB.Connection
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = D:\Only Me\Authors.mdb"
Set Comm = New ADODB.Command
Set Comm.ActiveConnection = Conn
Comm.CommandText = "SELECT Au_ID FROM Authors"
Comm.CommandType = adCmdText
Set RS = Comm.Execute
Do Until RS.EOF = True
Set RS = Nothing
Set Comm = Nothing
Set Conn = Nothing
Thanks JX_MAN, I will take that as a compliment. I wonder how many of those solved threads of yours are down to blatantly copying other members replies.
Whereas copying obviously works for some , others benefit from doing a little bit of thinking themselves!!
Hope the code helps with your problem Pranavdv.
Getting to grips with the ADO control is hard work but is a great tool once you get rolling.
Cheers for now
Dim Adapter As New OleDbDataAdapter
Dim Command As New OleDbCommand
Dim xFrom As String = dtpFrom.Value.ToString.Substring(0, dtpFrom.Value.ToString.IndexOf(" "))
Dim xTo As String = dtpTo.Value.ToString.Substring(0, dtpTo.Value.ToString.IndexOf(" "))
sqlQuery = MainQuery ...