Select Case tnConnType Case 1 oConnection = New OleDbConnection(tcConnection) oDataAdapter = New OleDbDataAdapter oCommand = New OleDbCommand oDataParameter = New OleDbParameter oDataReader = New OleDbDataReader While loEnumerator.MoveNext loParameter = loEnumerator.Current oParameters2.Add(New OleDbParameter(loParameter(1, 1).ToString, loParameter(1, 2))) End WhileThe line oDataReader cannot be processed as the interface reports: