Visual Basic - Como generar una Sentencia

Como hacer una sentencia que me llene un combo en visual desde una base de datos acces

hola amigo inexperto =) mira lo q puedes hacer es una tabla con los campos a llenar tu combo y solamente recorrer latabla llenando un combo
yo no utilizo controles para mi coneccion y esto es lo q ocupo mira

Public Sub LlenaConvenio(Com As ComboBox)
Set TConvenios = New ADODB.Recordset
Com.Clear
TConvenios.Open "TipoConvenios", BaseDatos, adOpenKeyset, adLockPessimistic, adCmdTable
TConvenios.MoveFirst
While TConvenios.EOF = False
Com.AddItem TConvenios.Fields("Descripcion")
TConvenios.MoveNext
Com.Text = "Tipo de Contrato"
Wend
End Sub

donde BaseDatos es mi coneccion y TipoConvenios es mi tabla con los campos solamente falta llamar a la funcion q es asi

LlenaConvenio Combo1