VB ADO 사용 관련 문의를 드립니다.

이전에도 질문을 남겼었는데요..

아래와같이 DB연결을 하고 실행을 할때
ODBC(위에서 설정값) 으로 하게 되면 별 문제가 없는데
OLEDDB(아래 설정값. 주석처리된 거) 으로 하게 되면
    " 데이터 공급자나 기타 서비스가 E_FAIL 상태를 반환했습니다 "
    라는 에러가 발생을 합니다.
    답변해주신 대로 아래와 같이 설정을 했습니다.
           .CursorLocation = adUseClient
    또한 이상한 점이 OLEDB로 연결을 했을 때 Set rs = aAdoCn.Execute(strSQL) 이런식으로  실행을 하면 한번은 되는데 두번째는 안되더라구요.
    http://www.cubrid.com/zbxe/32217 이 글이랑 연관이 있는게 아닌가 하는생각도 드네요..

읽어주셔서 감사합니다.
   
DBConnect = False
    Set aAdoCn = New ADODB.Connection
    With aAdoCn
        Select Case aDbType        
            Case "CUBRID"
                            .ConnectionString = "driver={CUBRID Driver};" & _
                                                      "server=" & aIp & ";" & _
                                                      "port=33000;" & _
                                                      "uid=" & aUseID & ";" & _
                                                      "pwd=" & aPassword & ";" & _
                                                      "db_name=" & aDataSource & ";"
'                .ConnectionString = "Provider = CUBRIDProvider;" & _
'                                    "Data Source = " & aDataSource & ";" & _
'                                    "Location = " & aIp & ";" & _
'                                    "User ID = " & aUseID & ";" & _
'                                    "Password = " & aPassword & ";" & _
'                                    "Port = 30000;" & _
'                                    "Fetch Size = 100"
            Case Else
                DBConnect = False
                Exit Function
        End Select
   
        .CursorLocation = adUseClient
        .ConnectionTimeout = 30
        .Open
   
    End With
   
    DBConnect = True
    Exit Function