SoloCodigo

Buenas noches expertos, de antemano pido disculpas por mi ignorancia en cuanto este lenguaje, soy algo nuevo en la programacion y a la vez agradezco la ayuda que me puedan brindar! Tengo un problema al intentar llenar un formulario con los campos de una tabla dependiendo de lo seleccionado anteriormente en 2 comboboxes, de verdad no se donde pueda tener el problema, les adjunto el codigo de la funcion:

'esta es la funcion donde pretendo que se cargue el formulario
Private Sub CargarTxt()
Dim strSQL As String
Dim Rs2 As New ADODB.Recordset
With Me.CboPlan
strSQL = "Select * FROM Planes" & vbNewLine
strSQL = strSQL & "WHERE TVehiculo= " & Me.CboTipo.ItemData(Me.CboTipo.ListIndex) & vbNewLine
strSQL = strSQL & " AND TPlan = " & Me.CboPlan.ItemData(Me.CboPlan.ListIndex)
End With
Rs2.Open strSQL, Cn, adOpenStatic, adLockOptimistic, adCmdText
FrmPrecios.LblPlan = Me.CboPlan.Text
FrmPrecios.LblTipo = Me.CboTipo.Text
FrmPrecios.TxtTDCosas = Rs2!TDCosas
FrmPrecios.TxtTDPersonas = Rs2!TDPersonas
FrmPrecios.TxtTPenal = Rs2!TPenal
FrmPrecios.TxtTMuerte = Rs2!TMuerte
FrmPrecios.TxtTInvalidez = Rs2!TInvalidez
FrmPrecios.TxtTGastos = Rs2!TGastos
FrmPrecios.TxtTAsist = Rs2!TAsist
FrmPrecios.TxtPDCosas = Rs2!PDCosas
FrmPrecios.TxtPDPersonas = Rs2!PDPersonas
FrmPrecios.TxtPPenal = Rs2!PPenal
FrmPrecios.TxtPMuerte = Rs2!PMuerte
FrmPrecios.TxtPInvalidez = Rs2!PInvalidez
FrmPrecios.TxtPGastos = Rs2!PGastos
FrmPrecios.TxtPAsist = Rs2!PAsist
Rs2.Close
Set Rs2 = Nothing
End Sub
'y aca en el boton "ver" cargo el frm, llamo la funcion y muestro el frm
Private Sub CmdVer_Click()
Load FrmPrecios
CargarTxt
FrmPrecios.Show
End Sub

De verdad les agredeceria en el alma ayudarme un poco con esto ya ando   !