AYUDA POR FAVOR DE CORAZON ES FACIL PERO SOYU NUEVO

SALUDOS AMIGOS, SOY NUEVO EN VB2005 Y SQLEXPRESS ESTOY HACIENDO UN
SISTEMA SENCILLO DE AGREGAR ELIMINAR ACTUALIZAR ZONAS

MI PROEBLEMA ES QUE TENGO UNA TABLA LLAMADA ZONAS CON CUATRO CAMPOS
CODIGO CHAR (10) NOMBRE (CHAR50) Y DETALLE (CHAR100) Y FECHAALTA
(DATETIME SHORT)

AHORA TENGO CUATRO TXTBOXES 1)CODIGO 2)NOMBRE 3)FECHA 4)DETALLE DONDE
QUIERO HACER LO SIGUIENTE :

AL INGRESAR EL CODIGO SI EL REGISTRO O (CODIGO) EXISTE ME MUESTRE LOS
DATOS CORRESPONDIENTES A ESE CODIGO EN LOS CUADROS DE TEXTOS
CORRRESPONDIENTES NOMBRE. FECHA. DETALLE. PARA MODIFICARLOS O
ELIMINARLOS Y SI NO EXISTE PASE AUTOMATICAMENTE AL SIGUIENTE CAMPO EN
ESTE CASO NOMBRE PARA COMENZAR A INGRESAR EL REGISTRO COMO NUEVO


DE VERDAD TENGO TIEMPO EN ESTO Y NO ENCUENTRO COMO REALIZAR ESA
VALIDACION

LES AGRADEZCO DE CORAZON TODA LA AYUDA DISCPONIBLE

OJO EL CODIGO NO ES AUTOMATICO COMO PUEDEN DARSE CUENTA EN EL EJEMPLO
PERO SI ES LA LLAVE PRINICPAL
Option Strict On

Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Data
Imports System.Data.SqlClient
Public Class zonas

Private dt As DataTable
Private da As SqlDataAdapter
Private fila As Integer

Private Sub zonas_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load

'"data source="& cboInstancias.Text & "; initial catalog=" &
cboBases.Text & "; integrated security=yes"
Dim sCnn As String = "Data Source=PERSONAL\SQLEXPRESS;Initial
Catalog=avalon2006;Persist Security Info=True;User
ID=sa;Password=Avalon2006"

Dim cnn As New SqlConnection(sCnn)


Dim sSel As String = "SELECT * FROM zonas ORDER BY codigozona"

Try

da = New SqlDataAdapter(sSel, cnn)

Dim cb As New SqlCommandBuilder(da)

da.UpdateCommand = cb.GetUpdateCommand()
da.InsertCommand = cb.GetInsertCommand()
da.DeleteCommand = cb.GetDeleteCommand()

dt = New DataTable

da.Fill(dt)

Dim rn As String = ""
rn = CStr(dt.Rows.Count)
labelregistros.Text = rn

Catch ex As Exception
MessageBox.Show("ERROR al conectar o recuperar los datos:"
& vbCrLf & _
ex.Message, "Conectar con la base", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class