cara cepat bikin program vb

----DATA SQL
----BIKIN DATABASE KULIAH

CREATE DATABASE kuliah
use kuliah
----BIKIN TABEL KULIAH( MAHASISWA)
create table kuliah(idmhs char(4) not null primary key,
namamhs varchar(20), alamat varchar(50),tlp int,sks int)
insert into kuliah values('0001','Keyboard','PCS',100000,10)
insert into kuliah values('0002','mouse','PCS',50000,30)
insert into kuliah values('0003','Monitor','PCS',1000000,20)
insert into kuliah values('0004','CPU','PCS',2000000,10)
insert into kuliah values('0005','Harddisk','PCS',100000,40)
create procedure isikul @id char(4),@nm varchar(20),@al varchar(50),
@tp int,@sk int
as
insert into kuliah values(@id,@nm,@al,@tp,@sk)
select*from kuliah;
exec isikul '0007','ABC','PCS',10000,40
create procedure editkul @id char(4),@nm varchar(20),@al varchar(50),
@tp int,@sk int
as
update kuliah set namamhs=@nm, alamat=@al,tlp=@tp, sks=@sk
where idmhs=@id
exec editkul '0001','Mouse Pad','PCS',10000,10
create procedure Hapuskul @id char(4)
as
delete from kuliah where idmhs=@id
exec hapuskul '0005'

select * from kuliah

--------TABEL DOSEN

create table dosen(kddos char(4) not null primary key,
namados varchar(20), matkul varchar(25),sks int,tlp int)
insert into dosen values('0001','Keyboard','PCS',100000,10)
insert into dosen values('0002','mouse','PCS',50000,30)
insert into dosen values('0003','Monitor','PCS',1000000,20)
insert into dosen values('0004','CPU','PCS',2000000,10)
insert into dosen values('0005','Harddisk','PCS',100000,40)
create procedure isidos @kd char(4),@nm varchar(20),@mk varchar(25),
@sk int,@tp int
as
insert into dosen values(@kd,@nm,@mk,@sk,@tp)
exec isidos '0007','ABC','PCS',10000,40
SELECT*FROM DOSEN
create procedure editdos @kd char(4),@nm varchar(20),@mk varchar(25),
@sk int,@tp int
as
update dosen set namados=@nm, matkul=@mk,sks=@sk, tlp=@tp
where kddos=@kd
exec editdos '0001','Mouse Pad','PCS',10000,10
select*from dosen;
create procedure Hapusdos @kd char(4)
as
delete from dosen where kddos=@kd
exec hapusdos '0005'
select * from dosen


----VB
---TABEL MAHASISWA
Dim xDb As ADODB.Connection
Dim xRs As ADODB.Recordset

Private Sub Command1_Click()
On Error GoTo Handle
'input data kedalam table
Set xRs = New ADODB.Recordset
xRs.Open "exec isikul '" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "'," & Text4.Text & "," & Text5.Text, xDb, 3, 1
'mutahkirkan datagrid
Refreshgrid

Keluar:
Exit Sub
Handle:
MsgBox Err.Description
Resume Keluar
End Sub

Function Refreshgrid()
'tampilkan data pada datagrid
Set xRs = New ADODB.Recordset
xRs.Open "select * from kuliah", xDb, 3, 1
Set DataGrid1.DataSource = xRs
End Function

Private Sub Command2_Click()
Set xRs = New ADODB.Recordset
xRs.Open "exec editkul '" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "'," & Text4.Text & "," & Text5.Text, xDb, 3, 1
Refreshgrid
End Sub
Private Sub Command3_Click()
Set xRs = New ADODB.Recordset
xRs.Open "exec hapuskul '" & Text1.Text & "'", xDb, 3, 1
Refreshgrid
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub DataGrid1_Click()
Text1.Text = ""
Text1.Text = DataGrid1.Columns(0).Text
Text2.Text = ""
Text2.Text = DataGrid1.Columns(1).Text
Text3.Text = ""
Text3.Text = DataGrid1.Columns(2).Text
Text4.Text = ""
Text4.Text = DataGrid1.Columns(3).Text
Text5.Text = ""
Text5.Text = DataGrid1.Columns(4).Text
End Sub

Private Sub Form_Load()
'koneksi ke database dan server
hubungkan
Set xDb = New ADODB.Connection
xDb.ConnectionString = DD
xDb.Open
refreshgrid
End Sub

----TABEL DOSEN

Dim xDb As ADODB.Connection
Dim xRs As ADODB.Recordset

Private Sub Command1_Click()
On Error GoTo Handle
'input data kedalam table
Set xRs = New ADODB.Recordset
xRs.Open "exec isidos '" & Text1.Text & "','" & _
Text2.Text & "','" & Text3.Text & "'," & _
Text4.Text & "," & _
Text5.Text, xDb, 3, 1
'mutahkirkan datagrid
Refreshgrid

Keluar:
Exit Sub
Handle:
MsgBox Err.Description
Resume Keluar
End Sub

Function Refreshgrid()
'tampilkan data pada datagrid
Set xRs = New ADODB.Recordset
xRs.Open "select * from dosen", xDb, 3, 1
Set DataGrid1.DataSource = xRs
End Function

Private Sub Command2_Click()
Set xRs = New ADODB.Recordset
xRs.Open "exec editdos '" & Text1.Text & "','" & _
Text2.Text & "','" & Text3.Text & "'," & _
Text4.Text & "," & _
Text5.Text, xDb, 3, 1
Refreshgrid
End Sub

Private Sub Command3_Click()
Set xRs = New ADODB.Recordset
xRs.Open "exec hapusdos '" & Text1.Text & _
"'", xDb, 3, 1
Refreshgrid
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub DataGrid1_Click()
Text1.Text = ""
Text1.Text = DataGrid1.Columns(0).Text
Text2.Text = ""
Text2.Text = DataGrid1.Columns(1).Text
Text3.Text = ""
Text3.Text = DataGrid1.Columns(2).Text
Text4.Text = ""
Text4.Text = DataGrid1.Columns(3).Text
Text5.Text = ""
Text5.Text = DataGrid1.Columns(4).Text
End Sub

Private Sub Form_Load()
'koneksi ke database dan server
hubungkan
Set xDb = New ADODB.Connection
xDb.ConnectionString = DD
xDb.Open
refreshgrid
End Sub

----MODULE

Global DD As String

Public Sub hubungkan()
DD = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=kuliah;Data Source=."
End Sub