>>>This should be a little bit better:
>>>
>>>

>>>                        ' Based on the SQL mode
>>>                        Select Case nSQLMode
>>>
>>>                            ' OleDb
>>>                            Case 1
>>>
>>>                                Using loOleDbConnection As New OleDbConnection(cConnectionString)
>>>                                    loOleDbConnection.Open()
>>>                                    oCommand.Connection = loOleDbConnection
>>>                                    nResult = oDataAdapter.SelectCommand.ExecuteNonQuery()
>>>                                End Using
>>>
>>>                                ' SQLClient
>>>                            Case 2
>>>
>>>                                Using loSQLConnection As New SqlConnection(cConnectionString)
>>>                                    loSQLConnection.Open()
>>>                                    oCommand.Connection = loSQLConnection
>>>                                    nResult = oDataAdapter.SelectCommand.ExecuteNonQuery()
>>>                                End Using
>>>
>>>                                ' ODBC
>>>                            Case 3
>>>
>>>                                Using loOdbcConnection As New OdbcConnection(cConnectionString)
>>>                                    loOdbcConnection.Open()
>>>                                    oCommand.Connection = loOdbcConnection
>>>                                    nResult = oDataAdapter.SelectCommand.ExecuteNonQuery()
>>>                                End Using
>>>
>>>                        End Select
>>>

Could be shorter :-} :

        Using loOleDbConnection As New OleDbConnection(cConnectionString)
>>            loOleDbConnection.Open()
>>            oCommand.Connection = loOleDbConnection
>>            Select Case nSQLMode
>>                ' OleDb
>>                Case 1
>>                    nResult = oDataAdapter.SelectCommand.ExecuteNonQuery()
>>                    ' SQLClient
>>                Case 2
>>                    nResult = oDataAdapter.SelectCommand.ExecuteNonQuery()
>>                    ' ODBC
>>                Case 3
>>                    nResult = oDataAdapter.SelectCommand.ExecuteNonQuery()
>>            End Select
>>        End Using

>
>
>Could still be shorter. I wonder what the case is for


Because of connection used. Not the result :-)