إلى المحترفين في قاعدة بيانات Ado Db ، أرجو تحويل هذا الكود للدلفي

Public CoN As ADODB.Connection

Public CheminBase As String

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Sub Connection()

On Error GoTo err

Set CoN = New ADODB.Connection

CoN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & CheminBase & " ;"

Exit Sub

err:

MsgBox err.Description

End

End Sub

Public Sub RemplirCombo(ByVal RS As ADODB.Recordset, ByVal cmb As ComboBox)

On Error GoTo err

cmb.Clear

Select Case cmb.Name

Case "cmbpays"

While Not RS.EOF

cmb.AddItem RS!pays

cmb.ItemData(cmb.NewIndex) = RS!cpays

RS.MoveNext

Wend

Case "cmbville"

While Not RS.EOF

cmb.AddItem RS!ville

cmb.ItemData(cmb.NewIndex) = RS!cville

RS.MoveNext

Wend

End Select

Exit Sub

err:

MsgBox err.Description

End Sub

Dim LatiTude As Variant

Dim LonGitude As Variant

Dim ville As String

Dim AdrEsse As String

Private Sub cmbpays_Click()

Set RS = New ADODB.Recordset

RS.Open "SELECT Villes.* FROM Villes WHERE (((Villes.Pays)=" & cmbpays.ItemData(cmbpays.ListIndex) & ")) ORDER BY Villes.Ville;", CoN, adOpenKeyset, adLockReadOnly

RemplirCombo RS, cmbville

RS.Close

cmbville.Visible = True

lblville.Visible = True

End Sub

Private Sub cmbville_Click()

On Error GoTo err

Set RS = New ADODB.Recordset

RS.Open "SELECT Villes.* FROM Villes WHERE (((Villes.Cville)=" & cmbville.ItemData(cmbville.ListIndex) & "));", CoN, adOpenKeyset, adLockReadOnly

txtlatitude = Replace(RS!LatiTude, ",", ".")

txtlongitude = Replace(RS!LonGitude, ",", ".")

RS.Close

Exit Sub

err:

MsgBox err.Description

End Sub