How Can Use Dis Codes In Vb.Net...I Use This Codes In Vb 6.0 But In Vb.Net I Cannot Use..Help Me

Public dbcon As New ADODB.Connection
Public rs As New ADODB.Recordset
Public fsy As New Scripting.FileSystemObject
Public id As String
Public priv As String

Private Sub Form_Load()

Set dbcon = Nothing
    dbcon.CursorLocation = adUseClient
    dbcon.Open "Provider=Microsoft.Jet.oledb.4.0;data source = " & App.Path & "\database\dbuser.mdb;"
    Set rs = Nothing
    
End Sub

Private Sub login_Click()

If Text1.Text = "" Or Text2.Text = "" Then

MsgBox "Fillup the the field before procceding!"
Exit Sub
End If

Set rs = Nothing
rs.Open "select * from tblemployee where [UserName]= '" & Text1.Text & "' and [Password]='" & Text2.Text & "'", dbcon, , adLockReadOnly

If rs.RecordCount > 0 Then
'MsgBox "Welcome" "" & rs.Fields("FirstName")
id = rs.Fields("FirstName")
priv = rs.Fields("Position")
   If priv = "Admin" Then
   Acountofemployee.File.Enabled = True
   Agri.Command1.Enabled = True
   Agriincoming.File.Enabled = True
  
   
  ElseIf priv = "Kagawad1" Then
   
Cash.Command4.Enabled = False
Cash.Command5.Enabled = False
Cash.Command3.Enabled = False
Cash.Command2.Enabled = False
Cash.Command7.Enabled = False

Events.Save.Enabled = False
Events.up.Enabled = False
Events.can.Enabled = False
Events.edit.Enabled = False
Events.del.Enabled = False
Events.Add.Enabled = False

   
  ElseIf priv = "Secretary" Then
  Acountofemployee.File.Enabled = True
   Agri.Command1.Enabled = True
   Agriincoming.File.Enabled = True
   Agrilatest.File.Enabled = True
   Agrilatest.Command1.Enabled = True
   BO.File = True
   CP.File.Enabled = True
   CP.Command1.Enabled = True
  

   
   ElseIf priv = "Kagawad2" Then
   Agri.Command1.Enabled = False
   incominginfrast.File.Enabled = True
   Infrastructure.File.Enabled = True
   Infrastructure.Command1.Enabled = True
   Cash.Command6.Enabled = False

   
   ElseIf priv = "Treasurer" Then
   Acountofemployee.File.Enabled = False
   Agri.Command1.Enabled = False
   Agriincoming.File.Enabled = False
   Agrilatest.File.Enabled = False
   Agrilatest.Command1.Enabled = False
   BO.File = False
  
   Else
   Acountofemployee.File.Enabled = False
   Agri.Command1.Enabled = False
   Agriincoming.File.Enabled = False
   Agrilatest.File.Enabled = False
   Agrilatest.Command1.Enabled = False
   BO.File = False

   End If
    
    
Menu.Show
Unload Me
    
Else

MsgBox "Invalid User name and password !"

End If

End Sub