怎样用VB添加数据库表，删除记录

'引入命名空间
Imports System.Data.SqlClient

'建立数据连接
Dim strcon As String = "integrated security=sspi;" & "server=(local);database=master"
Dim mycon As New SqlConnection(strcon)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'建立数据命令
Dim mycmd As New SqlCommand
mycmd.Connection = mycon
mycmd.CommandType = CommandType.Text
mycmd.CommandText = "create database student on" & _
"( NAME = student_dat,FILENAME = 'D:\data\student.mdf')" & _
"log on" & _
"( NAME = 'student_log'," & " FILENAME = 'D:\data\student.ldf')"
mycon.Open()
'执行数据命令
Try
mycmd.ExecuteNonQuery()
MsgBox("数据库