Unspecified Error Adodb MS Access VB2008

See more:

VB

MS-Access

Public Function gSQL(ByVal strSQL As String) As ADODB.Recordset
        Dim cnn As ADODB.Connection
        Dim rs As ADODB.Recordset
        Dim cmd As ADODB.Command
        Dim strcnn As String
        cnn = New ADODB.Connection
        cmd = New ADODB.Command
        rs = New ADODB.Recordset
        strcnn = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Program Files\Att2008\att2000.mdb"
        If cnn.State = ConnectionState.Open Then
            cnn.Close()
        End If
        cnn.Open(strcnn) 'this part is raising an error but all it says is "unspecified error"
        cmd.let_ActiveConnection(cnn)
        cmd.CommandType = ADODB.CommandTypeEnum.adCmdText
        cmd.CommandText = strSQL
        rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        rs.CursorType = ADODB.CursorTypeEnum.adOpenStatic
        rs.LockType = ADODB.LockTypeEnum.adLockOptimistic
        rs.Open(cmd)
        gSQL = rs
    End Function

what could be the possible reason and workaround for this kind of error. what confuses me is there is one computer that my program is running smoothly but on the other computers its not. does the processor of the computer can be a factor for this?

on the computer that the program is working i have a P4 2.4GH processor and 512MB
the other computer have a higher specs.. like iCore 3 and about 2gb memory..

please help me to fix this prob.. thanks in advance..