ADODB to SqlClient

Public recRecordset As ADODB.Recordset
Public ADODBConnection As New ADODB.Connection

Private Sub Form_Load()
   Set ADODBConnection = New ADODB.Connection

   ADODBConnection.ConnectionString = "provider=sqloledb;data source=AISCRIT11\FTT;initial catalog=Northwind;user id=ftt_uwee;password=fttuwee;"

   ADODBConnection.Open

   Set recRecordset = New ADODB.Recordset
   recRecordset.CursorLocation = adUseClient

   recRecordset.Open "select * from Customers", ADODBConnection, adOpenKeyset, adLockOptimistic, adCmdText

   recRecordset.Sort = "CustomerId"
   recRecordset.MoveFirst
End Sub

Public recRecordset As DataSet
Private _ADODBConnection As SqlConnection = Nothing

Private Sub Form1_Load(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles MyBase.Load
   ADODBConnection = New SqlConnection()
ADODBConnection.ConnectionString = "provider=sqloledb;data source=AISCRIT11\FTT;initial catalog=Northwind;user id=ftt_uwee;password=fttuwee;"
'UPGRADE_TODO: (7010) The connection string must be verified to fullfill the .NET data provider conecction string requirements. More Information: http://www.vbtonet.com/ewis/ewi7010.aspx
   ADODBConnection.Open()

   recRecordset = New DataSet()
'UPGRADE_ISSUE: (2064) ADODB.Recordset property recRecordset.CursorLocation was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
   UpgradeStubs.ADODB_Recordset.setCursorLocation(recRecordset, ADODB.CursorLocationEnum.adUseClient)
   Dim com As New SqlCommand
   com.Connection = ADODBConnection
   com.CommandText = "select * from Customers"
   Dim adap As SqlDataAdapter = New SqlDataAdapter(com.CommandText, com.Connection)
   recRecordset = New DataSet("dsl")
adap.Fill(recRecordset)
'UPGRADE_ISSUE: (2064) ADODB.Recordset property recRecordset.Sort was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
   UpgradeStubs.ADODB_Recordset.setSort(recRecordset, "CustomerId")
'UPGRADE_ISSUE: (2064) ADODB.Recordset method recRecordset.MoveFirst was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx
   UpgradeStubs.ADODB_Recordset.MoveFirst(recRecordset)
End Sub

public DataSet recRecordset = null
private SqlConnection _ADODBConnection = null

private void Form1_Load( Object eventSender, EventArgs eventArgs) 
{ 
ADODBConnection = new SqlConnection()

ADODBConnection.ConnectionString = "provider=sqloledb;data source=AISCRIT11\\FTT; initial catalog=Northwind;user id=ftt_uwee;password=fttuwee;" 

//UPGRADE_TODO: (7010) The connection string must be verified to fullfill the .NET data provider conecction string requirements. More Information: http://www.vbtonet.com/ewis/ewi7010.aspx 
ADODBConnection.Open()

   recRecordset = new DataSet()
//UPGRADE_ISSUE: (2064) ADODB.Recordset property recRecordset.CursorLocation was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx 
UpgradeStubs.ADODB_Recordset.setCursorLocation(recRecordset, ADODB.CursorLocationEnum.adUseClient) 
SqlCommand com = new SqlCommand()
com.Connection = ADODBConnection 
com.CommandText = "select * from Customers"
SqlDataAdapter adap = new SqlDataAdapter(com.CommandText, com.Connection)
recRecordset = new DataSet("dsl") 
adap.Fill(recRecordset)

//UPGRADE_ISSUE: (2064) ADODB.Recordset property recRecordset.Sort was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx 
UpgradeStubs.ADODB_Recordset.setSort(recRecordset, "CustomerId")
 
//UPGRADE_ISSUE: (2064) ADODB.Recordset method recRecordset.MoveFirst was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx 
 UpgradeStubs.ADODB_Recordset.MoveFirst(recRecordset)