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 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()
    work1
    work2
    work3
    con.Close()
    con = Nothing
End Sub