ParatiGrelo

conexao = New MySqlConnection
        conexao.ConnectionString = "SERVER=localhost; user=root; password=''; database=bd_escola"
        If VerificaCodigoDisciplina(codis.Text) >= 1 Then
            sql = "SELECT * from disciplinas where disciplinaID = " + codis.Text + ";"
            Try
                conexao.Open()
                Try
                    comando.Connection = conexao
                    comando.CommandText = sql
                    adaptador.SelectCommand = comando
                    adaptador.Fill(dados)
                    DataGridView1.DataSource = dados
                Catch erro As Exception
                    MessageBox.Show("erro ao tentar ler a db", erro.Message)
                End Try
                MessageBox.Show("Lig aberta com successo")

            Catch erro As Exception
                MessageBox.Show("erro ao tentar ler a db", erro.Message)
            Finally
                conexao.Dispose()
            End Try
                conexao = New MySqlConnection
                conexao.ConnectionString = "SERVER=localhost; user=root; password=''; database=bd_escola"
                sql = "UPDATE(disciplinas)"
                sql += "SET disciplinaID ='" + codis.Text + "', nmodulos = '" + nmodulos.Value.ToString + "'," & "disciplina = '" & nomedis.Text & "'"
                sql += "WHERE disciplinaID = '" + codis.Text + "';"
                Try
                    conexao.Open()
                    Try
                        comando.Connection = conexao
                        comando.CommandText = sql
                        adaptador.SelectCommand = comando
                        adaptador.Fill(dados)
                        DataGridView1.DataSource = dados
                    Catch erro As Exception
                        MessageBox.Show("erro ao tentar ler a db", erro.Message)
                    End Try
                    MessageBox.Show("Lig aberta com successo")

                Catch erro As Exception
                    MessageBox.Show("erro ao tentar ler a db", erro.Message)
                Finally
                    conexao.Dispose()
                End Try
                codis.ResetText()
                nmodulos.ResetText()
                nomedis.ResetText()
        Else
            Dim sql As String
            Dim cmd As New MySqlCommand
            Dim conexao As New MySqlConnection()
            Dim connstring = "SERVER=localhost; user=root; password=''; database=bd_escola"
            conexao = New MySqlConnection
            conexao.ConnectionString = connstring
            sql = "insert into disciplinas (disciplinaid, disciplina, nmodulos) values('" & codis.Text & "','" & nomedis.Text & "','" & nmodulos.Value & "')"
            Try
                Dim comando As MySqlCommand = New MySqlCommand(sql, conexao)
                conexao.Open()
                comando.ExecuteNonQuery()
                MsgBox("Registo adicionado com sucesso!", MsgBoxStyle.Information, "Registos de Dados")
                conexao.Close()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End If