This is the code I have behind my command button.

Private Sub CommandButton2_Click()
Dim Con As New ADODB.Connection
Dim Cmd As New ADODB.Command
Dim Cmd2 As New ADODB.Command
Dim Rs As ADODB.Recordset

Con.Open "DSN=KIAMOTOR;"
Set Cmd.ActiveConnection = Con
Cmd.CommandText = "SELECT * FROM PTFGRPP"
End Sub

"Jim Thomlinson" wrote:

Please post all of your code... When you look at your recordset (rs) is there
anything in it?
--
HTH...

Jim Thomlinson


"bmolintas" wrote:

I added the reference and am no longer receiving the error but clicking the
button does not pull down any recrods to the spreadsheet.

"Jim Thomlinson" wrote:

Did you make a reference to "Microsoft ActiveX Data Objects ?.? Library"
Tools - References in the VBE
You need that if you want to use ADODB
--
HTH...

Jim Thomlinson