conection dao
 

Hola quiero hacer coneccion de tipo dao o ado, es sin asistente de conexion

en visual se hace asi:

Código Delphi [-]
Private Sub Form_Load()
    ModoEditar False
    Set Cn = New ADODB.Connection
    Set Rs = New ADODB.Recordset
    Cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _“Data Source=C:\CursosLibres.MDB;” & _“Persist Security Info=False”
    Rs.ActiveConnection = Cn
    Rs.CursorType = adOpenKeyset
    Rs.LockType = adLockOptimistic
    Rs.Open “Select * From Curso”
    Set TxtCurCodigo.DataSource = Rs
    TxtCurCodigo.DataField = “CurCodigo”
    Set TxtCurNombre.DataSource = Rs
    TxtCurNombre.DataField = “CurNombre”
    Set TxtCurVacantes.DataSource = Rs
    TxtCurVacantes.DataField = “CurVacantes”
    Set TxtCurProfe.DataSource = Rs
    TxtCurProfe.DataField = “CurProfe”
End Sub

como seria en delphi 7? saludos

Código Delphi [-]
  ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;...';
  ADOQuery1.Connection := ADOConnection1;
  ADOQuery1.SQL.Add('elect * from mitabla order by campo1');
  ADOQuery1.Open;
  while not (ADOQuery1.Eof) do begin
    ComboBox1.Items.Add(ADOQuery1.Fields[0].AsString);
    ADOQuery1.Next;
  end;

ADOQuery1.Close;
ADOConnection1.Close;

estaria bien asi?