VB COM BD EM FOX 9.0

   Private Sub Form_Load()
Dim Conn As New adodb.Connection
    Conn.Open "Provider=VFPOLEDB.1;Data Source=C:\Documents and Settings\Paulo\Ambiente de trabalho\NC_001\CLIENTE.DBF;Password="";Collating Sequence=MACHINE"


Dim rs As adodb.Recordset
  Set rs = Conn.Execute("select Nomcli_cli from Cliente")
    While Not rs.EOF
       Me.Combo1.AddItem (rs.Fields("Nomcli_cli"))
        rs.MoveNext
    Wend

End Sub