>>>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
>
>But would not we want to instantiate appropriate connection class depending on the client?
Duh. Of course. (My usual problem - only glance at something :-}
