try this
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