Forum Pplware

Versão Completa: Inserir dados numa BD MySQL
Está de momento a ver uma versão reduzida do nosso conteúdo. Ver versão completa com o formato adequado.
Boas,
eu estou a criar uma aplicação para gerir uma escola de música e neste momento estou a fazer registo:
Código:
Imports MySql.Data.MySqlClient
Public Class Admin_Reg
        Dim server As String = "Server=localhost;User Id=root; Passowrd=;Database=cursos"
        Dim sqlcon As MySqlConnection = New MySqlConnection
        Private Sub Admin_Reg_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
                server = sqlcon.ConnectionString
                Try
                        If sqlcon.State = ConnectionState.Closed Then
                                sqlcon.Open()
                                MsgBox("Ligação com sucesso!!")
                        Else
                                sqlcon.Close()
                                MsgBox("Ligação está desligada")
                        End If
                Catch ex As Exception
                        MsgBox(ex.ToString)
                End Try
        End Sub
        Private Sub Reg_Admin(ByRef SQLStatement As String)
                Dim cmd As MySqlCommand = New MySqlCommand
                With cmd
                        .CommandText = SQLStatement
                        .CommandType = CommandType.Text
                        .Connection = sqlcon
                        .ExecuteReader()
                End With
                sqlcon.Close()
                MsgBox("Adicionado com sucesso")
        End Sub
        Private Sub reg_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reg_button.Click
                If pass_box.Text = cpass_box.Text Then
                        Dim sql As String = "INSERT INTO admin VALUES ('" & user_box.Text & "', '" & pass_box.Text & "')"
                        Reg_Admin(sql)
                Else
                        MsgBox("Passwords não correspondem!!")
                End If
        End Sub
End Class

Mas estou a ter problemas no :
Código:
.ExecuteReader()

diz-me:
Citar:No database selected

Será que alguem me pode ajudar?

Obrigado
URL's de Referência