Al combo2 lo tienes que abilitar tu en codigo pork lo tienes desabilitado asi cuando le cargas los datos:
Osea
Private Sub CargarCombo2()
Conect
opDB
SQL = "select * from servicio where cod_establecimiento='" & Combo1.Text & "'"
openRS
Combo2.Clear
While RST.EOF = False
Combo2.AddItem RST(0)
RST.MoveNext
Wend
Combo2.Enabled = True
cerrar
End Sub
Y el grid no te va a cargar los datos pork no lo tienes seteado con ninguna tabla pork esta con el adodc pero ese esta con la tabla de usuario y esa no tiene los datos anteriores filtrados pero bueno.
Te recomiendo que te leas un par de manuales o investigues acerca de las database y las conexiones con vb ami me gusta el adodc para mis conexiones o pasate por la pagina del gille hay encontaras de todo.
Y despues de eso construye de nuevo tu proyecto y te ira mejor.
Saludos...