convert this simple vb6 app to vb.net?

VB Code:

Option Explicit 
Dim cn As New ADODB.Connection  
Dim rs As New ADODB.Recordset    
Private Sub cmdConnect_Click()     
    cn.ConnectionString = "DRIVER={SQL SERVER};SERVER=192.168.0.1;DATABASE=dev_test;UID=sa;PWD=password;"     
    cn.Open     
     rs.Open "Select * from Brokerdb", cn, adOpenStatic, adLockOptimistic  
End Sub    
 
Private Sub cmdMoveNext_Click()     
   If (Not rs.EOF) Then        
     Text1.Text = rs.Fields(0)       
     Text2.Text = rs.Fields(1)        
     rs.MoveNext     
   End If  
End Sub   
 
Private Sub cmdMovePrevious_Click()    
  If (Not rs.BOF) Then        
   Text1.Text = rs.Fields(0)       
   Text2.Text = rs.Fields(1)        
   rs.MovePrevious     
  End If  
 
End Sub

I'm trying to move to .Net. Have trouble with gettting certain fields out of the the data returned from the database.
Example: Select * from BrokerDB returns the following fields - BrokerName, BrokerCode, BrokerLocation.
How do I get the 3rd row, BrokerName and BrokerLocation into 2 textboxes?
Or add rows 2 through 10, Fields BrokerName and BrokerLocation into 2 Listboxes (one for BrokerLocation) and other for BrokerName)?
I've 3 yrs VB6 experience, 3 day .NET.

Bind the textboxes to field then use bindingcontext to move the records .. or try to use dataform wizard then follow the codes .. (it uses binding context) .. good luck


Winanjaya

Thanx Winyanya for replying.

I do not want to Bind the constituent controls at all! Want to set text/caption property to dataset field value manually. This is preparation for moving a BIG VB6 app to .Net.

I'll fight the dragon until I win!!!