estoy tratando de guardar datos en una base de datos desde visual basic, pero me salta un error y no logro comprender en donde se encuentra, en un principio el error era que no se podía cerrar la conexión, espero puedan ayudarme, les dejo mi código:
Private Sub Registrar()
Dim Genero As String
Genero = IIf(rbxM.Checked, "M", If(rbxF.Checked, "F", ""))
Dim vsql As String
vsql = " EXEC _RegistrarCliente @cod_Cli ='" & txtCodigo.Text.Trim & "', @nom_Cli ='" & txtNombre.Text.Trim & "', @ape_Cli ='"
vsql = vsql + txtApellido.Text.Trim & "', @direc_Cl ='" & txtDireccion.Text.Trim & "',@cod_Loc ='"
vsql = vsql + txtCL.Text.Trim & " ', @genero =" & Genero & ", @DNI ='" & txtDNI.Text.Trim & "', @RUC ='" & txtRUC.Text.Trim & "', @telf_Cli='" & txtTelefono.Text.Trim & "'"
cn.Open() 'abriendo conexión
Dim cmRegistrarCliente As New SqlCommand(vsql, cn)
Try
cmRegistrarCliente.ExecuteNonQuery() 'Ejecutando orden SQL en el servidor de BD
cn.Close() 'abriendo conexión
MessageBox.Show("Registro ingresado....")
Catch ex As Exception
MessageBox.Show("Error...", Err.Description)
End Try
End Sub