[VB.NET]引数ありのsub関数のつくり方

Question

vb.netでとあるプログラムを作成しています。
dbと接続してデータグリットビューに表示しています。

            'データグリッドに表示
            Dim myselect As String = " " _
                        + "SELECT NUMBER,USER_ID,T_ITEM.ITEM_ID,ITEM_NAME,ITEM_PRICE,COUNT,ITEM_PRICE * COUNT AS sum" _
                        + " FROM M_ITEM JOIN T_ITEM ON M_ITEM.ITEM_ID = T_ITEM.ITEM_ID" _
                        + " WHERE registTIME BETWEEN '" & DateTimePicker1.Text & "' AND '" & DateTimePicker2.Text & "'" _
                        + " AND USER_ID = '" & LoginForm1.userid & "'" _
                        + " ORDER BY NUMBER "

            adapter = New MySqlDataAdapter(myselect, cn)
            Dim ds As New DataSet
            adapter.Fill(ds)
            DataGridView1.DataSource = ds.Tables(0)

上記のSQLの箇所をこのプログラムでは何回も使用しているので関数にしてコードをスッキリさせていと考えています。
自分なりに調べて書いてみたのですが呼び出すところで「式は値を生成しません」とエラーが出てしまいます。

・関数作成

  Private Sub sqlsel(ByVal arg1 As String, ByVal arg2 As String, ByVal arg3 As String)

        'arg1 = DateTimePicker1.Text
        'arg2 = DateTimePicker2.Text
        'arg3 = LoginForm1.userid


        Dim sqlsel As String = " " _
                       + "SELECT NUMBER,USER_ID,T_ITEM.ITEM_ID,ITEM_NAME,ITEM_PRICE,COUNT,ITEM_PRICE * COUNT AS sum" _
                       + " FROM M_ITEM JOIN T_ITEM ON M_ITEM.ITEM_ID = T_ITEM.ITEM_ID" _
                       + " WHERE registTIME BETWEEN '" & arg1 & "' AND '" & arg2 & "'" _
                       + " AND USER_ID = '" & arg3 & "'" _
                       + " ORDER BY NUMBER "


    End Sub

・呼び出すとき

  'データグリッドに表示
        adapter = New MySqlDataAdapter(sqlsel(DateTimePicker1.Text, DateTimePicker2.Text, LoginForm1.userid), cn)
            Dim ds As New DataSet
            adapter.Fill(ds)
            DataGridView1.DataSource = ds.Tables(0)
```
呼び出し方がおかしいのでしょうか？
また、式は値を生成しませんとはどういう意味ですか？

Answer 1

Subは戻り値無しの関数を表します。歴史的にはサブルーチンの意味です。
戻り値を返す場合 Fuctionを使います。
VBAでは関数名に戻り値を設定するとその関数の戻り値を定義できますがVB.NET は違います。
きちんとReturnしましょう。

式は値を生成しませんとはどういう意味ですか？

Subの関数を呼び出しても戻り値がないので値として評価できないよ。ってことです。

質問箇所以外にも突っ込みどころありますが、話題から逸れるのでやめておきます。

 Private Function sqlsel(ByVal arg1 As String, ByVal arg2 As String, ByVal arg3 As String) As String
        'arg1 = DateTimePicker1.Text
        'arg2 = DateTimePicker2.Text
        'arg3 = LoginForm1.userid

        Dim sqlsel As String = " " _
                       + "SELECT NUMBER,USER_ID,T_ITEM.ITEM_ID,ITEM_NAME,ITEM_PRICE,COUNT,ITEM_PRICE * COUNT AS sum" _
                       + " FROM M_ITEM JOIN T_ITEM ON M_ITEM.ITEM_ID = T_ITEM.ITEM_ID" _
                       + " WHERE registTIME BETWEEN '" & arg1 & "' AND '" & arg2 & "'" _
                       + " AND USER_ID = '" & arg3 & "'" _
                       + " ORDER BY NUMBER "

        Return sqlsel
    End Function

Comments

[reeeo]

回答ありがとうございます。おかげさまで正常に動くようになりました。
また何かありましたらお願いします。