Private Sub Form_Load()
Dim rstXML As ADODB.Recordset
Dim xmlFile As String
Set rstXML = New ADODB.Recordset
rstXML.CursorLocation = adUseClient

rstXML.Open "http://www.siteismi.com/veriler.xml"

Set DataGrid1.DataSource = rstXML

Set Text1.DataSource = rstXML ' ADI
Set Text2.DataSource = rstXML ' SOYADI
Set Text3.DataSource = rstXML ' MESLEĞİ

End Sub