Parsing textboxes and crystal report code

Public Class REPORT
Private dataadapter As SqlDataAdapter
Dim str_com As String = "server=com;uid=sa;pwd=;database=cmsfin"
Dim objcon As SqlConnection
Dim objcmd As SqlCommand
Dim frmDate As DateTime
Dim toDate As DateTime
Private Sub report_load()
objcon = New SqlConnection(str_com)
End Sub
Private Sub call1(ByVal frmDate As Date, ByVal toDate As Date)
Dim objcon As New SqlConnection("server=com;uid=sa;pwd=;database=cmsfin")
objcon.Open()
Dim str_con As String = "select * from IssueMBA where dtaccess between '" + frmDate + "' and ' " + toDate + "'"
objcmd = New SqlCommand(str_con, objcon)
Dim ds As New DataSet
Dim dataadapter As New SqlDataAdapter(objcmd)
dataadapter.Fill(ds)
CRYSTALREP.GridView1.DataSource = ds.Tables(0)
objcon.Close()
End Sub

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