> ' 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