Imports System.Data.SqlClient

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myConnectionString As String = "server=127.0.0.1;uid=server;pwd=;database=dcphl;"
        Dim myConnection As New SqlConnection(myConnectionString)
        Dim myCommand As SqlCommand = myConnection.CreateCommand()
        Try
            myConnection.Open()
            MsgBox("<Bot> SQL LOGIN SUCCESSFUL!")
        Catch ex As SqlException
            MsgBox(ex.Message)
        Finally
            myConnection.Close()
        End Try
    End Sub
End Class