Unspecified error while connecting database

[kamalteja]

Hi,

I'm getting unspecified error while opening a recordset and it is not happening for all the tables. The datatype used for tables are only INT, CHAR and VARCHAR. the only possibility i see is huge volume of data, but the error is thrown even for table with 4000 records. FYI .. password is not encrypted

Code:

Dim strConn      
strConn = "Driver= {Microsoft ODBC for Oracle}; " &_        
                  "ConnectString=(DESCRIPTION=" &_    
                  "(ADDRESS=(PROTOCOL=TCP)" &_    
                  "(HOST=) (PORT=1521))" &_        
                  "(CONNECT_DATA=(SERVICE_NAME=)));uid=; pwd=;"  
            
Dim obConnect  
Dim obRecset    
            
Set obConnect =CreateObject("ADODB.Connection")          
Set obRecset = CreateObject("ADODB.Recordset")  
            
obConnect.Open strConn


Dim queryStr      
queryStr = "select * from mv_product"        
            
Set obRecset = obConnect.Execute(queryStr)        


obRecset.MoveFirst        
            
GetDBField = obRecset.Fields(0).Value    
msgbox GetDBField