cargar impresoras de windows en combo

[guillebomtrasmiti]

aporto solución
Public Sub cargagridimpresoras()
Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet

Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text

comados.CommandText = "SELECT * FROM ImpresoraPredeterminada"

adapta2.SelectCommand = comados
adapta2.Fill(datavacio, "ImpresoraPredeterminada")

'MessageBox.Show(adapta2.Fill(datavacio, "IntroduccionDeVentasAhora").ToString)


'aquí cargo el datasource y el datamenber del datagrid
DgImpresora.DataSource = datavacio
DgImpresora.DataMember = "ImpresoraPredeterminada"

End Sub