50分不够可以在加呀! 关于取出最大值加一的问题！！急呀！！！

[zhllhzzhl]

哪位大哥请帮帮忙呀？
下面的程序单击Command5时可以插入text1.Text的值给字段CRdId没有问题的。
Private Sub Command5_Click()

Dim strQuery As String
Dim rsc As ADODB.Recordset
strUId = "sa"
strPwd = "sa"
strServer = "AH"
strDataBase = "WareHouse001"
strQuery = "select CRdId,CRdName,IRdGrade,BRdFlag from As_Style"
Set rsc = New ADODB.Recordset
rsc.Open strQuery, conn, adOpenStatic, adLockOptimistic

rsc.AddNew
rsc.Fields("CRdId") = text1.Text
rsc.Update
rsc.Close

End If
End Sub

我想先实现：

单击另外一个按钮Command4时，调出数据库中CRdId的最大值并自动加1，显示在text1.Text上面，该如何做呢？急呀！

[quhaihua]

select (max(CRdId)+1) as CRdId,CRdName,IRdGrade,BRdFlag from As_Style

[wgsasd311]

Private Sub Command4_Click()

Dim strQuery As String
Dim rsc As ADODB.Recordset
strUId = "sa"
strPwd = "sa"
strServer = "AH"
strDataBase = "WareHouse001"
strQuery = "select max(CRdId) as 'max' from As_Style"
Set rsc = New ADODB.Recordset
rsc.Open strQuery, conn, adOpenStatic, adLockOptimistic

rsc.movefirst
text1.text=rsc(1)

End Sub

[wgsasd311]

Private Sub Command4_Click()

Dim strQuery As String
Dim rsc As ADODB.Recordset
strUId = "sa"
strPwd = "sa"
strServer = "AH"
strDataBase = "WareHouse001"
strQuery = "select cast(max(CRdId)+1 as varchar(9)) as 'max' from As_Style"
Set rsc = New ADODB.Recordset
rsc.Open strQuery, conn, adOpenStatic, adLockOptimistic

rsc.movefirst
text1.text=rsc(1)

End Sub

[bugchen888]

select isnull(max(CRdId),-1)+1 as 'max' from As_Style