[ODBC Driver Manager] Data source name not found and no default driver specified

[hoho46]

I am trying to display oracle DB into DataGrid and facing some problem

Private Sub Command2_Click()
    Dim oconn As ADOconnect
    Dim rs As Recordset
    Dim strSQL As String
    
    strSQL = "SELECT * FROM ZZZJUNKPERSON"
    Set oconn = New ADOconnect
    Set rs = New ADODB.Recordset
    oconn.Open "ODBC;DSN=SSSS;UID=SSSSS;PWD=SSSSS;DATABASE=SSSSS"
    rs.CursorType = adOpenStatic
    rs.CursorLocation = adUseClient
    rs.LockType = adLockOptimistic
    rs.Open strSQL, oconn, , , adCmdText
    Set DataGrid1.DataSource = rs
         
End Sub

when I compile the code I get error.
I am new to VB.

[Doogle]

What is 'ADOconnect' ?

Normally you'd define a Reference to Microsoft Active Data Objects and use 'ADODB.Connection'. Also you need to initialise the RecordSet before using it in the same way you do for the connection.

Private Sub Command2_Click()
    Dim oconn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strSQL As String
    
    strSQL = "SELECT * FROM ZZZJUNKPERSON"
    Set oconn = New ADODB.Connection
    Set rs = New ADODB.RecordSet
    oconn.Open "Provider=msdaora;ODBC;DSN=SSSS;UID=SSSSS;PWD=SSSSS;DATABASE=SSSSS"
    rs.CursorType = adOpenStatic
    rs.CursorLocation = adUseClient
    rs.LockType = adLockOptimistic
    rs.Open strSQL, oconn, , , adCmdText
    Set DataGrid1.DataSource = rs
         
End Sub

[hoho46]

Thanks for the reply, I am new to this. I just follow some tutorial by googling.
I still get the runtime error message: ORA-12560: TNS: protocol adapter error
What is that mean?

[Doogle]

Probably that your connection string is incorrect. try

oconn.Open "Provider=msdaora;Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;"

where 'MyOracleDB' is your Oracle Database,'myUsername' is your Oracle Username and 'myPassword' is your Oracle Password

[hoho46]

then i got this error message. very Sorry
ORA-12154: TNS:could not resolve the connect identifier specified