cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "Data Source=C:WorkspaceData.gdb"
rst.Open "SELECT DISTINCT [Adi],[KimlikNo]FROM MahalleSiniri ORDER BY [Adi];", _
         cnn, adOpenStatic
rst.MoveFirst
    ComboBox4.Clear
    With Me.ComboBox1
    .Clear
   ComboBox1.Text = "Mahalle Seçiniz..."
    Do
        ComboBox1.AddItem rst![Adi]
        ComboBox4.AddItem rst![KimlikNo]
        rst.MoveNext
    Loop Until rst.EOF
End With
'UserForm_Initialize_Exit:'
On Error Resume Next
rst.Close
cnn.Close
Exit Sub