Combo

Hola Grupo.

He agregado un combo a un form y necesito que los valores se obtengan de
una base de datos, pero no lo he conseguido, esto lo quiero hacer en
tiempo de ejecución.

Mi código es:

Dim dsCmbEmpresa As New DataSet
Dim Conex As New SqlConnection(txtConex)
Dim da As New SqlDataAdapter
da.SelectCommand = New SqlCommand(query, Conex)
Try
cmbEmpresa.DataSource = dsCmbEmpresa.Tables("Empresas")
cmbEmpresa.DisplayMember = "RazonSocial"
cmbEmpresa.ValueMember = "IdEmpresa"
da.Fill(dsCmbEmpresa)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OKOnly, ex.Source)
End Try

No me muestra ningún error y tampoco los registros de la tabla.