1.- Si el valor es NULL me mande un MsgBox y que me salga de la funcion.
2.- Si no encuentra valores (que no sea valido) que me mande un MsgBox y que me salga de la funcion.
El codigo que tengo en el boton es:
Código:
Cuando falla, siempre se me marca de color amarillo la linea:Private Sub Button1_Click() Dim cnn As ADODB.Connection Dim sql As String Dim rs As Recordset Dim campo As ADODB.Field Set cnn = CreateObject("ADODB.Connection") cnn.ConnectionString = "DSN=qsmt;uid=qsmtcons;pwd=qsmtcons;" cnn.Open sql2 = "select es.DESCRIPCION_ESTADO ESTAT,................" Set rs = cnn.Execute(sql2) rs.MoveFirst Do While Not rs.EOF list1.AddItem ("DATOSSSSSSSSSSSSS: ") rs.MoveNext Loop End Sub
sql2 = "select es.DESCRIPCION_ESTADO ESTAT,................"
gracias!