combobox

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As String

Set cnn = New ADODB.Connection

With cnn
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "data source=S:\Ned-Sistema\TablasNed.mdb"
.Open
End With

Set rst = New ADODB.Recordset
sql = "select Distritos.distrito from Distritos where
Distritos.provincia='Lima'"

With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open sql, cnn, , , adCmdText
End With

Hoja1.Combo2.Clear
Do
Hoja1.Combo2.AddItem rst.Fields!distrito.Value
rst.MoveNext
Loop Until rst.EOF

Set cnn = Nothing
Set rst = Nothing

Abraham