Error en consulta mysql

Hola,voy a proponer 3 cosas

1.- Como bien te han comentado usa Option Strict On.

2.- Como bien has hecho, utiliza siempre consultas parametrizadas.

3.- Establece un bloque try catch para manejar cualquier posible excepción. Usa también un bloque Using para la conexión, el cual liberará dicha conexión del pool.

Te paso código? Dinos que mensaje te sale

'BUSCAR OPERARIO
Using con = New MySqlConnection(conectionstring)
Try
         con.Open()
         Dim sel As String = "SELECT * FROM operarios where Idoperario=?id"
         Dim cm As New MySql.Data.MySqlClient.MySqlCommand(sel, con)
         cm.Parameters.AddWithValue("?id", TextBox1.Text)
         Dim da As New MySql.Data.MySqlClient.MySqlDataAdapter(cm)
         Dim TABLA As New DataTable
         da.Fill(TABLA)
         If TABLA.Rows.Count > 0 Then
             Dim i As Integer
             Dim row As DataRow = TABLA.Rows(0)
             For i = 0 To TABLA.Rows.Count - 1
                 ' COGEMOS LA INFORMACION
                 NombreoperarioTextBox.Text = (TABLA.Rows(i).Item("Nombreoperario").ToString())
                 ApellidosoperarioTextBox.Text = (TABLA.Rows(i).Item("Apellidosoperario").ToString())
                 ExtensionTextBox.Text = IIf(row(3) Is DBNull.Value, "", Convert.ToString(row(3)))
             Next
         End If
Catch ex As System.Exception
    MessageBox.Show(ex.Message)
End Try
End Using

Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos