SQL vb.net practice (2012)

Imports System.Data.Sql
Imports System.Data.SqlClient

''Server=myServerAddress;Database=myDataBase;Trusted_Connection=True;
'add = insert into table
'update = UPDATE table set ||+ where
'delete = delete from table  ||+ where
' search =  select * from Table || + where


Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

        Dim conn As New SqlConnection With {.ConnectionString = "Server=hp-ac\sqlexpress;Database=xBeta;Trusted_Connection=True;"}
        Dim cmd As New SqlCommand


        cmd.Connection = conn
        conn.Open()

        cmd.CommandText = "INSERT INTO xTblPrima (xID,xFNAME,xLNAME,xMNAME) VALUES (@xID,@xFNAME,@xLNAME,@xMNAME) "

        cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@xID", txtID.Text))
        cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@xFNAME", txtFname.Text))
        cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@xLNAME", txtLname.Text))
        cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@xMNAME", txtMname.Text))

        cmd.ExecuteNonQuery()
        conn.Close()

        MsgBox("SUCCESS")


    End Sub

    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click

        Dim conn As New SqlConnection With {.ConnectionString = "Server=hp-ac\sqlexpress;Database=xBeta;Trusted_Connection=True;"}
        Dim cmd As New SqlCommand

        Dim DA As New SqlDataAdapter
        Dim DT As New DataTable



        cmd.Connection = conn
        conn.Open()


        cmd.CommandText = "SELECT * FROM xTblPrima where xID=@xID"
        cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@xID", txtSearch.Text))


        DA.SelectCommand = cmd
        DA.Fill(DT)


        txtID.Text = DT.Rows(0)(0).ToString
        txtFname.Text = DT.Rows(0)(1).ToString
        txtLname.Text = DT.Rows(0)(2).ToString
        txtMname.Text = DT.Rows(0)(3).ToString

        cmd.ExecuteNonQuery()
        conn.Close()






    End Sub

    Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
        Dim conn As New SqlConnection With {.ConnectionString = "Server=hp-ac\sqlexpress;Database=xBeta;Trusted_Connection=True;"}
        Dim cmd As New SqlCommand


        cmd.Connection = conn
        conn.Open()


        cmd.CommandText = "DELETE from xTblPrima where xID = '" & txtID.Text & "' "

        cmd.ExecuteNonQuery()

        conn.Close()

        MsgBox("SUCCESS")

    End Sub

    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

        Dim conn As New SqlConnection With {.ConnectionString = "Server=hp-ac\sqlexpress;Database=xBeta;Trusted_Connection=True;"}
        Dim cmd As New SqlCommand


        cmd.Connection = conn
        conn.Open()



        cmd.CommandText = "UPDATE xTblPrima set xID=@xID, xFNAME=@xFNAME, xLNAME=@xLNAME, xMNAME=@xMNAME where xID=@xID "


        cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@xID", txtID.Text))
        cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@xFNAME", txtFname.Text))
        cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@xLNAME", txtLname.Text))
        cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@xMNAME", txtMname.Text))

        cmd.ExecuteNonQuery()
        conn.Close()

        MsgBox("SUCCESS")





    End Sub

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
        txtSearch.Text = ""
        txtID.Text = ""
        txtFname.Text = ""
        txtLname.Text = ""
        txtMname.Text = ""
    End Sub
End Class