Codenstuff.com

Imports MySql.Data.MySqlClient

Public Class Form1

    Public conn As MySqlConnection



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        conn = New MySqlConnection("server=db4free.net;Port=3306; user id= you ID ; password= your id password; database=database you are using")
        Try




            conn.Open()
            Dim sqlquery As String = "SELECT * FROM imonline WHERE Gebruikersnaam = '" & ComboBox1.Text & "';"
            Dim data As MySqlDataReader
            Dim adapter As New MySqlDataAdapter
            Dim command As New MySqlCommand
            command.CommandText = sqlquery
            command.Connection = conn
            adapter.SelectCommand = command
            data = command.ExecuteReader
            While data.Read()
                If data.HasRows() = True Then
                    If data(2).ToString = TextBox1.Text Then
                        Form2.Show()
                        Me.Hide()
                        NotifyIcon1.Visible = True
                    Else

                        Label1.Text = "Onjuist wachtwoord of gebruikersnaam!"


                    End If

                End If
            End While
        Catch ex As Exception
        End Try




    End Sub