ถามเรื่องการ connect database และการ insert ใน vb.net เข้ามาช่วยหน่อยครับ

    Sub btnSave_Click(sender As Object, e As EventArgs)        
		Dim objConn As New SqlConnection
		Dim objCmd As New SqlCommand
		Dim strConnString,strSQL As String

		strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
		
		strSQL = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _
		" VALUES " & _
		" ('" & Me.txtCustomerID.Text & "','" & Me.txtName.Text & "','" & Me.txtEmail.Text & "', " & _
		" '" & Me.txtCountryCode.Text & "','" & Me.txtBudget.Text & "','" & Me.txtUsed.Text & "')"
		objConn.ConnectionString = strConnString
		objConn.Open()
		With objCmd
		   .Connection = objConn
		   .CommandText = strSQL
		   .CommandType = CommandType.Text		   
		End With
				
		Me.pnlAdd.Visible = False

		Try
			objCmd.ExecuteNonQuery()            
			Me.lblStatus.Text = "Record Inserted"
			Me.lblStatus.Visible = True
		Catch ex As Exception
			Me.lblStatus.Visible = True
			Me.lblStatus.Text = "Record can not insert Error ("& ex.Message &")"
		End Try

		objConn.Close()
		objConn = Nothing

    End Sub

Imports MySql.Data.MySqlClient
Imports System.Data.SqlClient
Imports System.Data

Partial Class _Default
    Inherits System.Web.UI.Page

    Dim objConn As MySqlConnection
    Dim objCmd As MySqlCommand

    Protected Sub BB_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BB.Click
        Dim objConn As New SqlConnection
        Dim objCmd As New SqlCommand
        Dim strConnString, strSQL As String

        strConnString = "Server=localhost;UID=root;PASSWORD=123456;database=test;Max Pool Size=400;Connect Timeout=600;"

        strSQL = "INSERT INTO ss (name,ser) " & " VALUES " & " ('" & TT1.Text & "','" & TT2.Text & "')"

        objConn.ConnectionString = strConnString
        objConn.Open()
        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With

        objConn.Close()
        objConn = Nothing

    End Sub


End Class

  Sub btnSave_Click(sender As Object, e As EventArgs)        
		Dim objConn As New MySqlConnection
		Dim objCmd As New MySqlCommand
		Dim strConnString,strSQL As String

		strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"
		
		strSQL = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _
		" VALUES " & _
		" ('" & Me.txtCustomerID.Text & "','" & Me.txtName.Text & "','" & Me.txtEmail.Text & "', " & _
		" '" & Me.txtCountryCode.Text & "','" & Me.txtBudget.Text & "','" & Me.txtUsed.Text & "')"
		objConn.ConnectionString = strConnString
		objConn.Open()
		With objCmd
		   .Connection = objConn
		   .CommandText = strSQL
		   .CommandType = CommandType.Text		   
		End With
				
		Me.pnlAdd.Visible = False

		Try
			objCmd.ExecuteNonQuery()            
			Me.lblStatus.Text = "Record Inserted"
			Me.lblStatus.Visible = True
		Catch ex As Exception
			Me.lblStatus.Visible = True
			Me.lblStatus.Text = "Record can not insert Error ("& ex.Message &")"
		End Try

		objConn.Close()
		objConn = Nothing

    End Sub

Imports MySql.Data.MySqlClient
Imports System.Data.SqlClient
Imports System.Data


Partial Class _Default
    Inherits System.Web.UI.Page

    Dim objConn As MySqlConnection
    Dim objCmd As MySqlCommand

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

        Dim objConn As New MySqlConnection
        Dim objCmd As New MySqlCommand
        Dim strConnString, strSQL As String

        strConnString = "Server=localhost;User Id=root; Password=123456; Database=story; Pooling=false"

        strSQL = "INSERT INTO std (IDstd,Sname,Sgrade,Sroom,Sbra,Sboard) " & " VALUES " & " ('" & TB_idstd.Text & "' ,'" & TB_name.Text & "','" & TB_grade.Text & "','" & TB_room.Text & "','" & TB_sbra.Text & "' ,'" & TB_sboard.Text & "')"
        objConn.ConnectionString = strConnString
        objConn.Open()

        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
            .ExecuteNonQuery()
        End With

    End Sub
End Class