Ayuda con un ComboBox

[Geovanny0401]

Bueno aca estuve realizando el codigo pero me genera un problema, el combobox cmbidafiliado tienes los sgtes item: AS,RC,CC,TI, cada vez q cargo el formulario siempre me toma el AS como el primer item, como hago q el me tome el valor actual ejemplo cuando tenga un registro q contega CC

aca te muestro un mi codigo

Código:

Private Sub FrmActualizarNovedad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 Try
            Dim TxtValor As String
            'validacion de combobox 0 y 1
            cmbIdafiliado.Text = cmbIdafiliado.Items(0)            
            swCambio = False
            'txtValorAnt = cmbIdafiliado.Text
Catch ex As Exception

        End Try
    End Sub

 Private Sub cmbIdafiliado_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbIdafiliado.SelectedValueChanged
        Try
            swCambio = txtValorAnt <> cmbIdafiliado.Text
        Catch ex As Exception

        End Try
    End Sub

 Private Sub cmdGrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGrabar.Click
        Dim rsDatosF As New ADODB.Recordset
        Dim Fechita As String = FechaActual()

If swCambio Then
                            con.Execute("UPDATE RS.RSNOVEDAD SET CODENTIDAD='" & txtEntidad.Text & "', APELLIDO1='" & Me.txtApellido1.Text & "',APELLIDO2='" & Me.txtApellido2.Text & "',NOMBRE1='" & Me.txtNombre1.Text & "',NOMBRE2='" & Me.txtNombre2.Text & "',CODDPTO='" & Me.txtDpto.Text & "',CODMPIO='" & Me.txtMunicipio.Text & "',CODNOVEDAD='" & Me.cmbNovedad.Text & "',FECININOV='" & FechaAMD(Fechita) & "',N1='" & Me.cmbIdafiliado.Text & "',N2='" & Me.txtNumidafiliado.Text & "',N3='" & FechaDMA(DtpFechnac.Text) & "',N4='0' WHERE CODIGO=" & LngReg)
                            con.Execute("UPDATE RS.RSUBSIDIADO SET CODENTIDAD='" & txtEntidad.Text & "',TIPIDCABFAM='" & cmbTipidcabfam.Text & "',NUMIDCABFAM='" & txtNumidcab.Text & "',TIPAFILIADO='" & cmbIdafiliado.Text & "',NUMAFILIADO='" & txtNumidafiliado.Text & "',APELLIDO1='" & txtApellido1.Text & "',APELLIDO2='" & txtApellido2.Text & "',NOMBRE1='" & txtNombre1.Text & "',NOMBRE2='" & txtNombre2.Text & "',FECHANAC='" & DtpFechnac.Text & "',SEXOAFI='" & cmbSexo.Text & "',TIPOAFI='" & cmbTipafiliado.Text & "',PARCABFAM='" & cmbParentezco.Text & "',GRUPOBLA='" & txtGrupo.Text & "',NIVSISBEN='" & cmbNivel.Text & "',NUMFICSISBEN='" & txtFicha.Text & "',CODBENMAYOR='" & cmbCondicion.Text & "',CODDPTOAFI='" & txtDpto.Text & "',CODMUNAFI='" & txtMunicipio.Text & "',ZONAFI='" & cmbZona.Text & "',FAFISGSSS='" & DtpFecSGSSS.Text & "',FAFIENTIDAD='" & DtpFecafient.Text & "',NUMCONTRATO='" & txtNumContrato.Text & "',FECINICONTRATO='" & DtpFecinContrato.Text & "',TIPCONTRATO='" & cmbTipContrato.Text & "',PERTETNICA='" & txtEtnia.Text & "',MODASUBSIDIO='" & cmbModalidad.Text & "' WHERE CONSECUTIVO=" & txtConsecutivo.Text)
                            sbMensaje.Text = "Registro Actualizado"
                            Cerrar(rsDatosF)
                            rsDatosF.Open("SELECT * FROM RSUBSIDIADO WHERE CONSECUTIVO='" & txtConsecutivo.Text & "'", con, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
                            cmdSalir.Enabled = True
                            cmdCancelar.Enabled = False
                            cmdGrabar.Enabled = False
                        Else
                            con.Execute("UPDATE RS.RSNOVEDAD SET CODENTIDAD='" & txtEntidad.Text & "', APELLIDO1='" & Me.txtApellido1.Text & "',APELLIDO2='" & Me.txtApellido2.Text & "',NOMBRE1='" & Me.txtNombre1.Text & "',NOMBRE2='" & Me.txtNombre2.Text & "',CODDPTO='" & Me.txtDpto.Text & "',CODMPIO='" & Me.txtMunicipio.Text & "',CODNOVEDAD='" & Me.cmbNovedad.Text & "',FECININOV='" & FechaAMD(Fechita) & "',N1='" & Me.cmbIdafiliado.Text & "',N2='" & Me.txtNumidafiliado.Text & "',N3='" & FechaDMA(DtpFechnac.Text) & "',N4='1' WHERE CODIGO=" & LngReg)
                            con.Execute("UPDATE RS.RSUBSIDIADO SET CODENTIDAD='" & txtEntidad.Text & "',TIPIDCABFAM='" & cmbTipidcabfam.Text & "',NUMIDCABFAM='" & txtNumidcab.Text & "',TIPAFILIADO='" & cmbIdafiliado.Text & "',NUMAFILIADO='" & txtNumidafiliado.Text & "',APELLIDO1='" & txtApellido1.Text & "',APELLIDO2='" & txtApellido2.Text & "',NOMBRE1='" & txtNombre1.Text & "',NOMBRE2='" & txtNombre2.Text & "',FECHANAC='" & DtpFechnac.Text & "',SEXOAFI='" & cmbSexo.Text & "',TIPOAFI='" & cmbTipafiliado.Text & "',PARCABFAM='" & cmbParentezco.Text & "',GRUPOBLA='" & txtGrupo.Text & "',NIVSISBEN='" & cmbNivel.Text & "',NUMFICSISBEN='" & txtFicha.Text & "',CODBENMAYOR='" & cmbCondicion.Text & "',CODDPTOAFI='" & txtDpto.Text & "',CODMUNAFI='" & txtMunicipio.Text & "',ZONAFI='" & cmbZona.Text & "',FAFISGSSS='" & DtpFecSGSSS.Text & "',FAFIENTIDAD='" & DtpFecafient.Text & "',NUMCONTRATO='" & txtNumContrato.Text & "',FECINICONTRATO='" & DtpFecinContrato.Text & "',TIPCONTRATO='" & cmbTipContrato.Text & "',PERTETNICA='" & txtEtnia.Text & "',MODASUBSIDIO='" & cmbModalidad.Text & "' WHERE CONSECUTIVO=" & txtConsecutivo.Text)
                            sbMensaje.Text = "Registro Actualizado"
                            Cerrar(rsDatosF)
                            rsDatosF.Open("SELECT * FROM RSUBSIDIADO WHERE CONSECUTIVO='" & txtConsecutivo.Text & "'", con, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
                            cmdSalir.Enabled = True
                            cmdCancelar.Enabled = False
                            cmdGrabar.Enabled = False
                        End If
End sub
 

lo q requiero es q tome el valor actual q correspone al combobox y cuando sea seleccionado algun item del combobox ingrese en el if q esta dentro del boton y cuando no sea seleccionado entre al else