ช่วยดูโค้ดVBให้หน่อยครับ ไม่รู้จะแก้ยังไง

[Produwser]

http://upic.me/i/m9/107untitled.jpg




Imports MySql.Data.MySqlClient
Imports System
Imports System.Threading


Public Class Form1



Dim strConn As String = "Database=Wn;Data Source=Localhost;User Id=root;Password=1234;CharSet=tis620"
Dim Conn As New MySqlConnection
Dim ds As New DataSet
Dim da As New MySqlDataAdapter




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


If (TextBox1.Text = "") And (TextBox2.Text = "") Then
MessageBox.Show("กรุณาป้อน UserName และ Password !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox1.Focus()
Exit Sub
End If

If TextBox1.Text = "" Then
MessageBox.Show("กรุณาป้อน UserName !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox1.Focus()
Exit Sub
End If

If (TextBox2.Text = "") Then
MessageBox.Show("กรุณาป้อน Password !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox2.Focus()
Exit Sub
End If

With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With

Dim sqlUser As String = ""
sqlUser = "SELECT Username, Password FROM Wn"
sqlUser &= " WHERE (Username='" & TextBox1.Text & "')"
sqlUser &= " AND (Password='" & TextBox2.Text & "')"

da = New MySqlDataAdapter(sqlUser, Conn)
da.Fill(ds, "Username")


If ds.Tables("Username").Rows.Count <> 0 Then

TextBox1.Enabled = False
TextBox2.Enabled = False
Button1.Enabled = False
Button2.Enabled = False

ProgressBar1.Maximum = 50
For i As Integer = 1 To 75
ProgressBar1.Increment(1)
Thread.Sleep(30)
Application.DoEvents()
Next

Dim fMain As New Form2
fMain.Show()
Me.Hide()

Else
MessageBox.Show("ข้อมูลผู้ใช้งานไม่ถูกต้อง ไม่สามารถเข้าระบบได้ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()

End If
End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If MessageBox.Show("คุณต้องการออกจากระบบใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
End
Else
TextBox1.Text = ""
TextBox2.Text = ""
End If
End Sub




End Class



ผิดตรงสีแดงๆอะครับ พูดแล้วไม่เหนภาพกดดูที่ภาพเลยครับ