I need some help over here.....

Private Sub Find_Machine_Customer()
        Dim Work_mst_roller_code As String = ""
        Dim con As OleDbConnection = New OleDbConnection(Main_Form.ConString)
	Dim dtbl_main As DataTable = New DataTable
        Dim cmd As OleDbCommand = New OleDbCommand("SELECT mst_roller_last_location, mst_roller_last_supp, mst_roller_type_pipe_id FROM Master_Roller WHERE Master_Roller.mst_roller_id = " & Parm_Roller_Roller, con)
        con.Open()
	Dim adapter1 As OleDbDataAdapter = New OleDbDataAdapter(cmd)
	adapter1.Fill(dtbl_main)
	
        work1 =  dtbl_main.Rows(0)(1).ToString
        work2 = dtbl_main.Rows(0)(2).ToString
        work3  = dtbl_main.Rows(0)(3).ToString
        con.Close()
        con = Nothing
    End Sub