กรุณาช่วยแปลงโค๊ดจาก vb6เป็นvb.netให้หน่อยครับ

Dim Owner_Record As Recordset
Private Sub Form_Load()
Set Owner_Record = DbObj.OpenRecordset("Select * From Owner Order By Name_Owner;")
If Owner_Record.RecordCount > 0 Then
Owner_Record.MoveFirst
Do Until Owner_Record.EOF
Combo1.AddItem Owner_Record!Name_Owner
Owner_Record.MoveNext
Loop
End If
ShowData
End Sub
Private Sub Combo1_Click()
Set Owner_Record = DbObj.OpenRecordset("Select * From Owner Where Name_Owner='" & Combo1 & "' ;")
If Owner_Record.RecordCount > 0 Then
Text1 = Owner_Record!Code_Owner
End If
End Sub

Private Sub Text1_Change()
If Text1 = "" Then Exit Sub
Set Owner_Record = DbObj.OpenRecordset("Select * From Owner Where Code_Owner='" & Text1 & "';")
If Owner_Record.RecordCount > 0 Then
Combo1 = Owner_Record!Name_Owner
End If
End Sub
ขอบคุณครับ