Hola.... por que no pruebas asi mejor.
Dim Id = TextBox1.Text
Dim sel As String = "SELECT * FROM operarios where Idoperario=" & Id
Y omites la linea .--> cm.Parameters.AddWithValue("?id", TextBox1.Text)
No utilices cm.Parameters.... mejor pasalo directo...
Saludos.