Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Dim cnn1 As New ADODB.Connection Dim rstSchema As New ADODB.Recordset cnn1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=MyDSN" cnn1.Open Set rstSchema = cnn1.OpenSchema(adSchemaTables) Do Until rstSchema.EOF cmbSelect.AddItem rstSchema!TABLE_NAME rstSchema.MoveNext Loop rstSchema.Close cnn1.Close