ERRO 91

  Private Sub BtGrava_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtGrava.Click
        sql = ([Ô]INSERT INTO TbFerrtas(Registro,Data,Cod,Nome,Empresa,Estq,UltDta,Obs)[Ô] _
        & [Ô]values ([ô][Ô] & TxtReg.Text & [Ô][ô],[ô][Ô] & TxtDta.Text & [Ô][ô],[ô][Ô] & TxtCod.Text & [Ô][ô],[ô][Ô] _
        & TxtNome.Text & [Ô][ô],[ô][Ô] & TxtEmpresa.Text & [Ô][ô],[ô][Ô] & TxtEstq.Text & [Ô][ô],[ô][Ô] _
        & TxtUltDta.Text & [Ô][ô],[ô][Ô] & TxtObs.Text & [Ô][ô])[Ô])

        Dim objCmd As New MySqlCommand(sql, objConexao)

        objCmd.Parameters.AddWithValue([Ô]Registro[Ô], TxtReg.Text)
        objCmd.Parameters.AddWithValue([Ô]Data[Ô], TxtDta.Text)
        objCmd.Parameters.AddWithValue([Ô]Cod[Ô], TxtCod.Text)
        objCmd.Parameters.AddWithValue([Ô]Nome[Ô], TxtNome.Text)
        objCmd.Parameters.AddWithValue([Ô]Empresa[Ô], TxtEmpresa.Text)
        objCmd.Parameters.AddWithValue([Ô]Estq[Ô], TxtEstq.Text)
        objCmd.Parameters.AddWithValue([Ô]UltDta[Ô], TxtUltDta.Text)
        objCmd.Parameters.AddWithValue([Ô]Obs[Ô], TxtObs.Text)

        Try
            objConexao.Open()
            objCmd.ExecuteNonQuery()

        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            objConexao.Close()
        End Try

    End Sub