这样写是做什么呀？我搞不明白你想msgBox什么消息，如果你想显示"Select Count (*) from ws_User"
但中间几行代码作什么用？如果是显示记录数，这样不是差太多了么？ 可以参考代码（C#)
 SqlDataAdapter ad=new SqlDataAdapter("SELECT COUNT (*) FROM ws_user",Con);//Con为SqlConnection，用于连接数据库
 DataSet ds=new DataSet();
ad.Fill(ds,"ws_user");
string ccount=ds.Tables["ws_user"].Rows[0].ItemArray[0].toString();
MessageBox.Show(ccount);

SQL 没执行吧

多谢各位帮助！
DataGrid1.DataSource = rs
 SqlDataAdapter1.Fill(rs)
这两句是能过组件连接到数据库之后生成的，
我想把这个数据库中某个表的记录总数查询出来，
不知道代码怎么写？
上面我写的那些SQL语句没有执行，这是为什么呀？
本人是超级菜菜鸟呀，请各位大侠多多帮忙！
希望大家能直接给我VB.net中的代码！

SqlCommand.ExecuteScalar
执行查询，并返回查询所返回的结果集中第一行的第一列。忽略额外的列或行。

Dim conString As String = "Persist Security Info=False;Data Source=localhost;Initial Catalog=DB;User ID=sa;Password =''"
       strSelect="Select Count (*) as number from ws_User"
        Dim Conn As SqlConnection = New SqlConnection(conString)

        Dim cmd As SqlCommand = New SqlCommand(strSelect, Conn)
        Dim Da As SqlDataAdapter = New SqlDataAdapter
        Da.SelectCommand = cmd
        Dim ds As DataSet = New DataSet
        Dim ccount As interger 
         Try

        Conn.Open()
        Da.Fill(ds, "nTable")
        if ds.Table(0).rows.count>0 then
              ccount=ds.Table(0).rows(0).Item("Number")
        endif
        Catch ex As Exception
        'MsgBox("数据打开失败", 64, "天晴提示")
         End Try
         MessageBox.Show(ccount);

各位大侠们有没有关于VB.net实例代码的好网址呀？

dim con as string
dim com as string 

con = "data source = xxx;initial catalog = xxx;user id = xxx;password = xxx"
com = "select....."

dim a as new sqldataadapter(com,con)
dim table as new datatable

try
  a.fill(table)
  me.datagrid1.datasource = table
catch ex as exception
  console.writeline(ex.tostring)
end try

用msdn帮助就可以了，挺全的 

msgbox(datagrid.rows)