Visual Basic - Uso de RecordCount en Insert Into

He eleaborado la sgte codificacion y lo unico que deseo es almacenar
en uno de mis campos es el numero de registros mas uno, osea ,hacer
un autonumerico, para ello uso el metodo RecorCount para obtener
el numero de registros en mi tabla, pero me responde como lo deseo,
tengo una ligera sospecha pero no se si sera cierta
tal ves hay que evaluar el recorset cuando este no tiene ningun
registro, o quizas no codifique bien, que se yo.
Espero me den una solicion a este dilema
les aviso que mi unico material de consulta es internet
y la ayuda de algunas personas, pido no me recomienden leer el msdn
pues no lo tendre no esta a mi alcanze,gracias.
*****************************************
Public Num As Integer
Public Car As String
Public Fec As Date
Public cn As New ADODB.Connection
Public cmd As New ADODB.Command
Public rs As New ADODB.Recordset
*****************************************
Private Sub Command1_Click()
Num = rs.RecordCount+1
Car = InputBox("Ingrese un caracter", "Caracter")
Fec = InputBox("Ingrese un fecha", "fecha")
sensql = "insert into tipodato(tipnum,tipcar,tipfec)values(" & Num & ",´" & Car & "´,# " & Fec & "#)"
cmd.ActiveConnection = cn
cmd.CommandText = sensql
cmd.Execute
End Sub
*****************************************
Private Sub Form_Load()
cn.Provider = "Microsoft.Jet.OLEDB.3.51"
cn.ConnectionString = "Data Source=C:\Abel\Prueba.mdb"
cn.Open
sensql = "select * from tipodato"
rs.Open sensql, cn, adOpenStatic, adLockOptimistic
End Sub
*****************************************

Hola Abel:
Me parece que estas trabajando con ADO, yo he trabajado con RDO y DAO, en todo caso, te recomendaria lo siguiente:
1.- Agrega la siguiente línea antes de sensql = "select * from tipodato":
sensql = "select count(id) from tipodato".
Donde id es la clave de la tabla, consulta es del mismo tipo que sensql.
Count es una función propia de SQL (no importa si trabajas con ACCESS) que te permite contar el número de registros de una tabla.
2.- Asigna el resultado de esta consulta a una variable numerica, usemos la que muestras en tu ejemplo.
Primero valida que la variable contenga datos:
Num = 0
if not isnull(sensql(0)) then
Num = Num = sensql.field(0) -> En DAO
end if
****No te podría decir como es en ADO***
Pero estuve investigando, date una idea con:
sensql.Fields.Count " Fields in tipodato"
Si no encuentras como hacerto me avisas para ayudarte.
*******************
A mi parecer todos tus demás pasos son correctos.
Ojo si la tabla contiene muchos registros mejor cambia el tipo de dato de la variable Num (tipo integer por long)

Espero haberte ayudado. Un saludo

Hola como estas mi nombre es abel
agradezco tu interes es para a mi un placer ser srespondido por una dama, verdad gracias, y que placer, vaya vaya con lo que me vacila las chicas intelectuales, bueno, con respecto sugerencia, te digo que la referencia es ADO mas no DAO , pero me gustaria ya que tienes esperiencia en esto del dao, poder enviarte scierats aplicaciones que he elaborado par que me des algunas sugerencia, espero tu autorizacion para hacerlo.
Cuentas como mi amistad, Abel
mi correo es [email protected] y me gustaria saber el tuyo.
Bueno , hasta luego