Visual Basic - cambiar tipo de dato

holas
como podria cambiar un tipo de dato string a integer
estoy trabajando con este codigo para autogenerar un codigo de mi tabla clientes y no me funciona ya que mi num es integer y mi sql es string pero necesito que sea asi please
gracias por su ayuda

Dim sql As String
Dim num As Integer
sql = "select count(codigo) from clientes3"
num = sql
If num < 0 Then
Me.txtcod.Text = 1
Else
Me.txtcod = num + 1

Pues tu sentencia está mal, ya que nunca la ejecutas, solamente la dejas en una variable y ya: sql = "select count(codigo) from clientes3" y luego este texto tratas de pasarlo a la variable NUM; es lo que estás haciendo, según el ejemplo que transcribes.

Si estás conectado a una base de datos, prueba así:

Dim sql As String
Dim num As Integer
dim rst as adodb.recordset ' Declara también esta variable.

' Supongamos que el objeto de conexión a tu base de datos se llama "cnn":
sql = "select count(codigo) from clientes3"
set rst = cnn.execute(sql) ' así dejas en un recordset (rst) el resultado de tu consulta o sentencia.
' num = sql ' Esto está mal, no funciona. Sería así:
num = rst.fields(0)' Para obtener el resultado de la sentencia sql.

If num < 0 Then
Me.txtcod.Text = 1
Else
Me.txtcod = num + 1

MUCHAS GRACIAS!!!!!!!!!!!!!
FUNCIONO!!!!!!!!!!!!!!!!!!

SABES TE EXPLICO LO SIGUIENTE
TENGO UN PROGRAMA QUE HACE ESTO
GRABA CLIENTES
ELIMINA CLIENTES
RECUPERA CLIENTES ELIMINADOS

CUANDO YO ELIMINO UN CLIENTE QUE ESTA EN UN DATAGRID1 PASA A UN DATAGRID2 Y AHI HAY UN BOTON EN CUAL AL DARLE CLCK ME LO ENVIA AL DATAGRID1 PORQUE LO RECUPERE OSEA YA NO ESTA ELIMINADO

EN DATAGRID1 ESTAN LOS NO ELIMINADOS
EN DATAGRID 2 ESTAN LOS ELIMINADOS

DONDE YO HAGO MI REGISTRO TENGO BOTONES PARA QUE DICEN PRIMER REGISTRO,SIGUIENTE REGISTRO,ANTERIOR REGISTRO Y ULTIMO REGISTRO CADA VES QUE VOY DANDO CLIC AVANZA O RETROCEDE O VEO EL PRIMERO O EL ULTIMO

AHORA YO TENGO 20 REGISTROS EN MI DATAGRID1, ELIMINO EL REGISTRO 20 Y 19 Y PASAN AL DATAGRID2, LUEGO LOS RECUPERO Y PASAN AL DATAGRID1

Y DESPUES DOY CLIC EN EL BOTON ULTIMO Y ME MUESTRA COMO ULTIMO REGISTRO AL 18, DEBERIA MOSTRAME EL 20 SI YA RECUPERE LOS DOS QUE ELIMINE

TE PASO EL CODIGO QUE USO PARA RECUPERAR CLIENTES
ESPERO QUE PUEDAS AYUDARME CON ESTO

Dim rstodos As New ADODB.Recordset
rstodos.CursorLocation = adUseClient
rstodos.Open "update clientes3 set eliminado=1 where eliminado=0", cn

Dim rsact As New ADODB.Recordset
Dim sql As String
sql = "select codigo,nombre,paterno,materno,direccion,telefono from clientes3 where eliminado=1"
rsact.CursorLocation = adUseClient
rsact.Open sql, cn, adOpenKeyset, adLockOptimistic
Set Me.DataGrid1.DataSource = rsact

Set Me.DataGrid2.DataSource = Nothing
Me.DataGrid1.Caption = "Son " & rsact.RecordCount & " Clientes"

PORQ NO M DICES DONDE VIVES OE PARA BUSCARTE Y QUE ME LO DIGAS EN MI CARA

OE COBARDE!!!!!!!!!!

FUE [email protected]

fue [email protected] quien comenzo pues

ERROR! el [email protected] se esta asiendo viejo yo soy MDONDO de color oscuro y de nacimiento afrikan.
no sabes distinguir.

Te envio un ejemplo a tu correo.
Creo que el problema está en que no refrescas los recordsets adecuados, usando Requery.
En fin, checas el ejemplo, a ver si te ayuda en algo.

LOS FOROS ESTAN PARA HACER CONSULTAS Y CONTESTARLAS EN EL MISMO FORO, NO PARA ENVIAR CORREOS A LOS PARTICULARES, SI TENES EL CODIGO LO PONES AQUI PARA QUE LO PODAMOS UTILISAR TODOS.

No me metan en sus ped0s....!! solo traté de ayudar

kien krees ke eres? NO AYUDES MAS

No somos nadie P_E_N_D_E_J_0

haremos lo que se nos pegue nuestra put@ gana

y y y y y y y y y y y y y y como piensas impedirlo ????

MDONGO..... CHING A TU P_:U_T_A MADRE

MDONGO..... CHING A TU P_:U_T_A MADRE

MDONGO..... CHING A TU P_:U_T_A MADRE

¿?

ja ja ja ja ja ja vaya que tienen imaginacion sonsos, todos son unos gilipoll@s.....