Codigo Visual Studio

Imports System.Data
Imports System.Data.SqlClient
Public Class crear_usuario
Dim edicion As Integer
Dim miTrans As SqlTransaction
Dim comando As SqlClient.SqlCommand
DimstrAccion As String
Dim Conector As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=prueba;Integrated Security=true;")
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles perfil.SelectedIndexChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click
edicion = 0

Me.codigo.Text = Nothing
Me.txtperfil.Text = Nothing
Me.txtestatus.Text = Nothing
Me.nomusuario.Text = Nothing
Me.contraseña.Text= Nothing
Me.perfil.Text = Nothing
Me.estatus.Text = Nothing
Me.fecha = Nothing
Me.txtperfil = Nothing
Me.txtestatus = Nothing
Me.Button3.Enabled= True
Me.Button4.Enabled = False
Me.Button5.Enabled = False
Me.RadioButton1.Enabled = False
Me.RadioButton2.Enabled = False
Me.nomusuario.ReadOnly =False
Me.codigo.ReadOnly = False
Me.nomusuario.ReadOnly = False
Me.contraseña.ReadOnly = False
Me.perfil.Enabled = True
Me.estatus.Enabled = TrueDim Usuarios As New SqlCommand("SELECT Id_usuario FROM Usuarios", Conector)
Try
Conector.Open()
If Usuarios.ExecuteNonQuery = 0 Or Nothing ThenMe.codigo.Text = "1"
Else
Me.codigo.Text = CStr(Usuarios.ExecuteNonQuery + 1)
End If
Conector.Close()
Catch ex As ExceptionMessageBox.Show("Error al realizar la conexión.")
Conector.Close()
End Try
End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs)...